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о Las funciones son parecidas а los 
procedimientos con una diferencia 
fundamental devuelven un valor. 


° Esto significa que en alguna parte del cuerpo 
del procedimiento de función, se calculara, 
recuperara o creara un valor para que sea el 
valor de retorno de la función. 


2 Un procedimiento Function es una serie de 
instrucciones Visual Basic delimitadas por las 
instrucciones Function y End Function. Los 
procedimientos Function son similares a los 
procedimientos Sub, pero las funciones 
pueden devolver un valor al programa que 
origina la llamada 


° Utilicemos la siguiente sintaxis para crear un 
procedimiento Function: 


Function functionname[( argumentlist )] As datatype 
' Statements of the function go here, including 
optional 
‘Return statement 

End Function 


|| Е 


EL REACTIVO DE FEHILNG es un frasco que 
contiene 50ml . Tiene tres niveles de precio 
dependiendo del nümero de unidades que se 
comprenden: 

о $44.00 c/u si se compran menos де 8 unidades 


о $32.00 c/u si se compran al menos 8 unidades 
pero menos de 15 


о $28.00 c/u si se compran 15 unidades o más. 


Hacer un programa en Visual Basic (funciones) y 
su diagrama de flujo. 


UNIDADES | 


Public Class Formi 


Private Sub Buttonl Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim UNID As Object 

UNID = TextBoxl.Text 

If NOT IsNumeric(UNID) Then 


MessageBox.Show("El valor introducido no es 
numérico”) 


TextBox1.Focus() 
End If 
TextBox2.Text - CAL COSTO(UNID) 
End Sub 
End Class 


Function CAL COSTO(ByVal UNID As 
Integer) As Integer 


If UNID « 8 Then 

CAL COSTO - UNID * 44 
ElseIf UNID « 15 Then 

CAL COSTO - UNID * 32 
Else 

CAL COSTO 
End If 

End Function 


UNID * 28 


3NUMERIC( ) 


a función devuelve un valor lógico indicando si la 
resión que pasamos como parámetro contiene un 
nero o una cadena que pueda ser convertida a nümero 


Public Sub Main() 
Dim Valor As Object 
Dim Total As Integer 
Valor = Textbox1.text 
If IsNumeric(Valor) Then 
Total = Valor + 100 
MessageBox.Show("Resultado: " & Total) 
Else 
MessageBox.Show("El valor introducido no es 
numérico") 
End 
End If 
End Sub 


ISDATE( ). 


Esta función devuelve un valor lógico 
indicando si la expresión que pasamos como 
parámetro contiene una fecha o una cadena 
que pueda ser convertida a fecha. 


Public Sub Main() 
Dim Valor As Object 
Dim UnaFecha As Date 
Valor = textbox1.text 
If IsDate(Valor) Then 
UnaFecha = Valor 
listbox1.items.add(UnaFecha) 
Else 


MessageBox.Show("El valor ingresado no es una 
fecha") 


End If 


End Sub e 


FUNCIONES DEL LENGUAJE 


Cada lenguaje dispone de un grupo de 
funciones de apoyo, para ayudar al 
programador en su trabajo cotidiano 


NUMÉRICAS | 
INT(NUMERO), FIX(NUMERO). 


Estas funciones devuelven la parte entera del 
parámetro Nümero. La diferencia entre ambas 
reside en que cuando el parámetro pasado es 
negativo, 

Int( ) devuelve el entero negativo menor o igual 
que Nümero. 


Fix() devuelve el entero negativo mayor o igual 
que Nümero. 


Dim Resultado As Integer 


Resultado = Int(66.87) ' 66 
Resultado = Fix(66.87) ' 66 
Resultado = Int(-66.87) ' -67 
Resultado = Fix(-66.87) ' -66 


RANDOMIZE([NÜMERO]). 


Inicializa el generador de numeros aleatorios, que 
utilizaremos posteriormente en la función Rnd( ). 
Opcionalmente recibe un nümero como parámetro 
que sirve al generador como valor inicial o semilla 
para la creación de estos nümeros. 


RND(INÜMERO]). 


Devuelve un nümero aleatorio de tipo Single, 
que será menor que 1, pero mayor o igual a 
cero. 


Dim Contador As Integer 
Dim Aleatorio As Single 

Randomize() 

For Contador = 1 To 10 
Aleatorio = Rnd() 
listbox1.items.add(Aleatorio) 

Next 


Si necesitamos que el numero aleatorio esté 
comprendido en un intervalo de nümeros 
enteros, utilizaremos la siguiente fórmula. 


Int((LímiteSuperior - Límitelnferior + 1) * Rnd() + 
Límitelnferior) 


Ejemplo: 
Crear 10 números aleatorios comprendidos 
entre el intervalo de los números 7 y 12. 


SOLUCION 


AE 


ListBox 


Private sub Buttonl.......... 
Dim Contador As Integer 
Dim Aleatorio As Single 
Randomize() 
For Contador = 1 To 10 


Aleatorio = Int((12 - 7 + 1) * Rnd() + 7) 
listbox1.items.add( Aleatorio) 


Next 
End sub 


Ejemplo: Hallar el valor absoluto de -5 


24 Buttonl „| Z dick 
EPublic Class Formi 


E Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System. EventAr; 
Dim x As Double 
x = Math.Abs(-5) 
ListBoxl.Items.Add(x) 

L End Sub 

| End Class 


ртансо v 1 X Pila de llamadas 


Г Ри гест p 
Altere el código anterior: 
Public Class Form1 


Private Sub Buffon. CICKBy al sender As System. Обед, ByVal e As System EventArgs) Handles Button Cick 


Dim x As Double 


x = Math.Pow(2, 3) 
ListBox1.ltems.Add(x ) 
End Sub 
End Class 


El resultado será 8 


Í = | Altere el código anterior: 


Public Class Form1 


Private Sub Button! Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 


Dim x As Double 
x = Math.E 
ListBox1.Items.Add(x ) 
End Sub 
End Class 


El resultado será 2.71828182845905 


"I Altere el codigo anterior: 


Public Class Form1 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button’ .Click 
Dim x As Double 


x = Math.Pl 
ListBox1.ltems.Add(x ) 
End Sub 
End Class 


El resultado sera 3.14159265358979 


Log . Hallemos : Ln(e?) 
Altere el código anterior: 


Public Class Form1 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1 Click 
Dim x As Double 
x = Math.Log(Math.E ^ 2) 
ListBox1.Items.Add(x ) 
End Sub 
End Class 


EI resultado será 2 


Log10 | 


Public Class Form1 


Hallemos : Log(1000) 
Altere el código anterior: 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button’ Click 
Dim x As Double 


x = Math.Log10(1000) 
ListBox1.ltems.Add(x ) 
End Sub 
End Class 


EI resultado será 3 


| — Ma | ¿Cuál es mayor o maximo: 30 5? 
Altere el código anterior: 
ublic Class Form1 


Private Sub Button Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1 Click 
Dim x As Double 
x = Math.Max(3, 5) 
ListBox1.ltems.Add(x ) 
End Sub 
End Class 


El resultado será 5 


Min | ¿Cuál es menor o minimo : 3 6 5? 
Altere el código anterior: 


Public Class Form1 


Private Sub Button1 Click(By Val sender As System.Object, ByVal e As System.EventArgs) Handles Button1 Click 
Dim x As Double 
x = Math.Min(3, 5) 
ListBox1.ltems.Add(x ) 
End Sub 
End Class 


El resultado sera 3 


| Round | Redondea al centésimo : 2.4557 
Altere el código anterior: 


Public Class Form1 


Private Sub Button1 Click(By Val sender As System.Object, ByVal e As System.EventArgs) Handles Button1 .Click 
Dim x As Double 


x = Math.Round(2.4557, 2) 
ListBox1.Items.Add(x ) 
End Sub 
End Class 


El resultado será 2.46 


Sqrt Hallemos : 42 
Altere el código anterior: 


Public Class Form1 


Private Sub Button1 Click(By Val sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim x As Double 
x = Math.Sqrt(2) 
ListBox1.ltems.Add(x 


"c чие nueder aynresarse 


- кесогает 
FUNCIONES TRIGONOMÉTRICAS grados 


sexagesimales y еп radianes, 
mediante la relación: 


Hallemos Sin(30) 
Altere el código anterior: 


Public Class Form1 


Private Sub Button! Click(ByV'al sender As System Object, ByVal e As System EventArgs) Handles Button Click 
Dim x As Double 
x = Math.Sin(30 * (Math.PI) / 180) 
ListBox1.Items.Add(x ) 
End Sub 
End Class 


El resultado será 0.5 


Nota: Observa que 30 (se expresa en grados sexagesimales) , y se tiene que aplicar la 
formula de conversión en radianes. 


Pero, cuando los ángulos se expresan en radianes, se reemplaza directamente en la 
ventana código. 


Sigamos con el mismo ejemplo: Halla Sin(=) , que es el mismo Sin(30) 


Public Class Form1 


Private Sub Button Click(ByVal sender As System Object, ByVal e As System EventArgs) Handles Button Click 
Dim x As Double 


x = Math.Sin(Math.PI / 6) 
ListBox1.Items.Add(x ) 
End Sub 


Ahora desarrolemos funciones matematicas. 
деец LIIS LEE Recurriremos а la estructura de control For – Next 


Altere el código anterior: 


CGA Tabula: У = |х| condominio -З<х<3 
Escribe el código: 


Public Class Form1 


Private Sub Button1_Click(ByVal sender As System Object, ByVal e As System EventArgs) Handes Bution Click 

Dim x, y As Double 

Forx=-3To3 
у = Math.Abs(x) 
ListBox1.Items.Add(y ) 

Next x 

End Sub 
End Class 


Ejecute , y observará : 


GUN +0 Nu 


^ Función Lcase y Ucase 

о Estas dos funciones se utilizan para convertir 
cadenas de texto a minüscula y mayuscula. 
La función Lcase cambia o convierte una 
cadena de texto a minüscula y un ejemplo de 
como utilizarla sería asi: 


SLcase (cadena que queremos convertir a 
minusculas) 


N 
LJ 
— 
O 
00 
— 
N 
о 
N 
+ 


Ejemplo: 
Dim cadena As String 


cadena = "PROGRAMACIÓN VISUAL" 


'Convertimos 
cadena = LCase(cadena) 


'La variable cadena ahora vale " programación 
visual " 


N 
ОЈ 
~ 
o 
со 
~ 
N 
о 
NO 
D 


La función Ucase funciona de la misma manera que 
Lcase pero convierte el contenido de una cadena a? 
mayusculas. 


ӯс0с/8 


Рог ejemplo, si tenemos un control Labell que 
contiene un texto que dice: “Viaje Gratis", 
escribiendo la siguiente línea: 


Labell = UCase(Labell) 


El control Labell pasaría a mostrar o mejor dicho 
contener en su propiedad caption:" VIAJE GRATIS ". 


Función Trim, LTrim y RTrim 
Estas tres funciones se utilizan para eliminar los 
espacios vacíos de una cadena. 


LTrim elimina los espacios vacíos de la parte izquierda 
de la cadena, RTrim de la parte derecha y Trim de 
ambas partes. 


Ejemplos: 
Tenemos una variable llamada: 
Ciudad = "bbbbCallaobb" 


Para eliminar los espacios vacíos de la izquierda 
haríamos lo siguiente: 


ciudad = LTrim(Ciudad) 


N 
LJ 
— 
о 
00 
— 
N 
о 
N 
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О Si quisiéramos borrar todos los espacios 
vacíos de la parte derecha de la cadena : 


o Ciudad = RTrim(ciudad) 


о La Función Trim elimina todos los espacios 
vacíos de ambos lados de la cadena. 
Ejemplo: 

о Pais =" Colombia ' 

Pais = Trim(Pais) 


Ahora el valor de Pais es igual a: "Colombia". 


N 
LJ 
— 
O 
00 
— 
N 
о 
N 
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o Función Len 


о La función Len nos permite conocer la cantidad 
de caracteres que tiene una determinada cadena. 
O sea que esta función nos devuelve un nümero. 


о Ejemplo: 
o Len (Aquí va la cadena que queremos averiguar 


su tamano) 
О 


vcoc/80/ec 


o Como la función Len devuelve un nümero 
debemos asignar ese nümero devuelto en una 
variable de tipo numérica. 


о Ejemplo: 
о Dim LongCadena Аз Integer 


Dim MiCadena As String 
MiCadena = "MebLlamobMaradona" 


LongCadena = Len(MiCadena) 
О 


о El valor de la variable LongCadena pasaría a 
valer 17. 
о Hay que tener en cuenta que la función Len 


también toma en cuenta los espacios vacíos. 


N 
ОЈ 
~ 
о 
со 
~ 
N 
о 
N 
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° Función Left, Right y Mid 

О 
Estas funciones son utilizadas para extraer 
partes de una cadena. 

о La función Left: 

о tiene 2 parámetros: El primero es la cadena 


de la cual se extraerán caracteres, y el 
segundo un nümero desde el cual comenzar 


a extraer caracteres desde la parte izquierda. 


N 
LJ 
— 
O 
00 
— 
N 
о 
N 
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о Ejemplo: 
° Dim Cadena As String 


N 
ОЈ 
— 
о 
со 
~ 
N 
о 
N 
D 


Cadena = Left(“Que siga la Fiesta", 6) 


'Cadena, que es un string, sería igual a: "Que 


SI 


° Función Right: 

Es igual que la función Left pero comienza a extraer caracteres desde el lado 
derecho de la cadena. 

о La función Mid: 


Tiene la misma función que las anteriores pero posee tres parámetros. Su 
sintaxis es: 


Mid (cadena, inicio, longitud) 
El parámetro cadena es la cadena a extraer caracteres. 
El parámetro Inicio es donde comenzar. 


El parámetro longitud es la cantidad de caracteres a extraer de la cadena 
de caracteres. 


Ejemplos: 
Dim nombre As String 


vcoc/80/ec 


nombre - Mid("Sport-Boys-campeón-de-2da-2017", 11, 7) 


'La variable nombre sería igual a: "campeón" 


FUNCIONES PARA EL 
TRATAMIENTO DE 
NUMEROS 


Visual Basic posee muchas funciones para 
tratar nümeros. A continuación las principales 
funciones 


vcoc/80/ec 


o Función Round 


о La función Round se utiliza para redondear un 
nümero decimal, devolviendo un nümero entero. 


Ejemplo: 
2 Dim Mimumero As Integer 


Minumero = Math.Round(245.877,2) '( devuelve 245.88) 
Minumero = Math.Round(245.3) '(La función devuelve 245) 
Minumero = Math.Round(245.5) '(La función devuelve 245) 
о Round posee un parámetro opcional рог si queremos 
incluir los dígitos decimales. 
О 


N 
ОЈ 
~ 
о 
со 
~ 
N 
о 
N 
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о Виа y Randomize - Números aleatorios 


о Para generar nümeros aleatorios, Visual Basic 
incluye 2 funciones: Rnd y Randomize. 


о La función Rnd devuelve un numero 
aleatorio, y esta posee un solo parámetro. 


о Ejemplo : 
o Rnd (nümero) 


N 
LJ 
— 
O 
00 
— 
N 
о 
N 
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о Pero para poder generar dichos nümeros 
aleatorios, debemos utilizar previamente la 
función Randomize con la siguiente fórmula: 


° Dim Limitelnferior As Integer 
Dim LimiteSuperior As Integer 


vcoc/80/ec 


Limitelnferior = 20 
LimiteSuperior = 40 


Int((LimiteSuperior - Limitelnferior + 1) * Rnd() + Limitelnferior) 


о En el ejemplo anterior, se generarán números 
aleatorios comprendidos entre el 20 y el 40 


EJERCICIO 1 


o Disene un programa que genere 
aleatoriamente las notas de una práctica 
calificada para 20 alumnos de una sección y 
determine la nota promedio de la sección y, 
la nota máxima y mínima generada.( Las 
notas es de 0 a 20 ). 


N 
ОЈ 
~ 
о 
со 
~ 
N 
о 
N 
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23/08/2024 


23/08/2024 


PRODA, MATO, MENOR 


ListBox 


PROMEDIO | 


NOTA MAX Ea 
NOTA MIN | 


N 
UJ 
— 
о 
00 
= 
NJ 
о 
N 
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Public Class Form1 
Public NOTA(19), S,;wmay,wmen, | As Integer 


Private Sub Button1 Click(ByVal sender As System.Object, ByVal e Ase 
System.EventArgs) Handles Button1.Click 
Randomize() 
wmen=999 
For | = 0 To 19 
NOTA(I) = 


со 
~ 
N 
о 
NO 
D 


Private Sub Button2 Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 


Dim PROM As Double 
PROM = 5/ | 
TextBox1.Text = PROM 
TextBox2. Text = WMAY 
TextBox3. Text = WMEN 

End Sub 


N 
ОЈ 
~ 
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EJERCICIO 2 


o Disene un programa que genere 
aleatoriamente las notas de una práctica 
calificada para 20 alumnos de una sección e 
imprima por cada nota tantos asteriscos 
como indique la nota. 
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N 
UJ 
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N 
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NOTA ASTERISCO 


N 
UJ 
= 
[e] 
со 
= 
N 
о 
N 
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Public Class Form1 


Private Sub Button1 Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button1.Click 
Dim |, NOTA(19) As Integer 
Dim C As String 
Randomize() 
For | = 0 To 19 
NOTA(I) = Int((21) * Rnd()) 
Cau" 
Do 
C = C + “*” 
X =X+ 1 
Loop Until X = NOTA(I) 
ListBox1.Items.Add(NOTA(l) € " " € C) 
Next 
End Sub 


N 
ОЈ 
~ 
о 
со 
~ 
N 
о 
N 
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End class 


EJERCICIO 3 


о репе un programa que simule el 
lanzamiento simultáneo de tres dados hasta 
obtener 6 en los tres dados y determine 
cuantos lanzamientos simultáneos fueron 
necesarios efectuar 


N 
LJ 
— 
O 
00 
— 
N 
о 
N 
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Qc mus rends) 


N 
UJ 
= 
о 
00 
= 
N 
D | | O 
N 
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| GENERAR | 
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DADO 1 DADO? DADO 3 


Public Class Form1 


Private Sub Button1 Click(sender As System.Object, e As 
System.EventArgs) Handles Button1.Click 


Dim D, C As Integer 
Randomize() 
Do 
D1 = Int(6 * Rnd() + 1) 
D2 = Int(6 * Rnd() + 1) 
D3 = Int(6 * Rnd() + 1) 
ListBox1.Items.Add(D1 € " " & D2& " " € рз) 
C=C+1 
Loop Until 01 = 6 And D2 =6 And D3 = 6 
TextBox1.Text = C 
End Sub 


N 
LJ 
— 
O 
00 
— 
N 
о 
N 
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End Class 


• Simular cien tiradas de dos dados y contar 
las veces que entre los dos suman 10. 


РКОВГЕМА-05 


* Hacer un diagrama de flujo y un 
programa en Visual Basic tal que, en 
una matriz bidimensional de M filas y 
N columnas se rellene con nümeros 
enteros generados aleatoriamente 
entre 50 y 100 y luego ingrese un 
numero entero cualquiera y diga 
cuantas veces el numero se 
encuentra en la matriz 


Disene un programa que genere nümeros 
aleatorios en el intervalo de 10 a 99 hasta obtener 
un numero cuya suma de sus cifras sea iguala 4 o 
6. 

Muestre los números conforme se vayan 
generando y muestre al final: 

eLa cantidad de números generados. 

*El mayor numero generado 

*El menor numero generado. 


— 


* Disene un programa que genere 
aleatoriamente los sueldos de 120 
empleados de una empresa con valores en 
el intervalo de s/. 800 a s/. 1700 y 
determine: 

° El sueldo promedio 

* El sueldo máximo 

* El sueldo mínimo 


• El numero de empleados que ganen un 
sueldo inferior a S/. 1000 


EJERCICIO - FUNCIONES 


Dado un numero entero obtener la suma 
de sus dígitos pares e impares. 
Hacer un programa en Visual Basic 
utilizando funciones que devuelve el 
nombre correspondiente a un nümero de 
mes. 
Declarar una función que calcule: 

suma = 1+2+3+....+М 
Utilizar una función que calcule el 
factorial de un nümero. 


Calcular la hipotenusa de un triangulo ' 
rectángulo dado sus 2 catetos. Utilizar función. 


EJERCICIO - FUNCIONES 


Suponga que ERLICH 
REACTIVO(UROBILINOGENO) frasco de 100 ml. 
Tiene tres niveles de precio dependiendo del 
nümero de unidades que se compren: 


$ 28.00 c/u si se compran 10 unidades o mas 


$ 32.00 c/u si se compran al menos cinco, pero 
menos de 10. 


$ 44.00 c/u si se compran menos de 5 
unidades. 


Defina la función CALCOSTO para determinar el 
costo de reactivos. 


Hacer un programa en Visual Basic, utilizando . 
Funciones, tal que dado un numero entero ` 
positivo. Halle el digito mayor y el digito menor. 


